home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / GOSUB DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  144b  |  5 lines
  1. 10  POKE 975,0
  2. 20  INPUT "N = ";N
  3. 30  FOR I = 1 TO N: GOSUB 50: GOSUB 50: NEXT I
  4. 40  PRINT "GOSUB EXECUTED " PEEK(975)" TIMES": END 
  5. 50  RETURN